print('awwwww my first script');
######################################
########## Load the data #############
######################################
mydata <- read.table('raw_stats.dat',TRUE)
plot(mydata[,'X.idle'])

u_i <- mean(100-mydata[,'X.idle'])
di <- u_i / 94
plot(100-mydata[,'X.idle'], type='b', xlab='Time in Seconds', ylab = '% Ultization (u_i)')

